home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 5 / developer source - volume 5.iso / parad / jul95 / kada1f4.gif < prev    next >
Graphics Interchange Format  |  1996-11-19  |  7.8 KB  |  374x436  |  4-bit (5 colors)
   ocr: SMULFSL-xTolbar.proc proc EditmenuResponse Logical var aChoice String sId Smallint endvar aChoice - IpopEdit.show( 5witch Cdse aChoice - aundoitAlt-BksP" sId - enueditundo case aChoice - "Cuatitshift+Del" sId - MenuEditCut case aChoice - "acopyitctrl-Ins" : sid = MenuEditCopy case aChoice - "&Pasteitshift+Ins" - - sid = MenuEditPaste otherwise : return True endswitch return active.menuaction sid ) endrroc Edit Line: 1 Col:: 1